home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 7
/
Apprentice-Release7.iso
/
Environments
/
PowerFantasm™ 4.19a
/
PowerFantasm™
/
F4_EXAMPLES
/
Sound play - 68k
/
SOUND_PLAY.S
< prev
next >
Wrap
Text File
|
1997-04-01
|
731b
|
32 lines
*********************************
*SOUND_PLAY.S *
*CONTAINS NECESSARY ROUTINES *
*TO PLAY A SOUND RESOURCE *
*IN THE BACKGROUND. *
*********************************
LOAD_SOUND: **GET SOUND RESOURCE
CLR.L -(SP) *SPACE FOR HANDLE
MOVE.L #"snd ",-(SP)
MOVE.W D0,-(SP) *GET SOUND - RESOURCE NUMBER IN D0
DC.W _GET1RESOURCE
MOVE.L (SP)+,D0 *GET HANDLE
RTS_ "Load_sound" *rts_ is a macro that inserts a Macsbug label
PLAY_SOUND:
CLR.W -(SP)
PEA CHAN(A5)
CLR.W -(SP)
CLR.L -(SP)
CLR.L -(SP) *CALL BACK PTR
DC.W $A807 *SNDNEWCHANNEL
MOVE.W (SP)+,D0
CLR.W -(SP)
MOVE.L CHAN(A5),-(SP)
MOVE.L SOUND(A5),-(SP)
MOVE.B #-1,-(SP)
DC.W $A805 *sndplay
MOVE.W (SP)+,D0
RTS_ "Play_sound"
GLOBAL LOAD_SOUND,PLAY_SOUND